home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / maguire / bomber / bomber.dir < prev   
File List  |  1990-05-14  |  4KB  |  171 lines
  1. %%HP: T(1)A(D)F(.);
  2. DIR
  3.   BLDNG
  4. GROB 131 15 000000000F00036000008F381600000000838FE3008F100F7000008A281600E30000828AA200CF30055000008F381600A20000838FE300CF300F7000008A281600E30000828AA200CF30055000008F381600A20000838FE3008F100F7000008A281600E30000828AA2008010055000008F381600AA3000EFEFEF60B09FFF7EC0FFFFBF36FFFF3C00AAAAAA60B995555AC0FAEAAA27BAAA2C00EFEFEFEFB6DFFF7ECFFFFFBF35FFFFFF00AAAAAAAAA955555AFAEAEAAA2FBAAAAA00EFEFEFEFB0DFFF7EFFFFFFFF3DFFFFFF00AAAAAAAAA055555AAAEAEAEA2FBAAAAA00EFEFEFEFBFDFFF7EFFFFFFFF3DFFFFFF00EFEFEFEFB9DFFF7EFFFFFFFF3FFFFFFF00
  5.   BOMBS {
  6. GROB 8 10 0000C381C3E7E7E7C381
  7. GROB 10 7 000000008300C710EF10C7108300
  8. GROB 13 7 0000000020006F70EFF06F702000
  9. GROB 9 11 00000000C00001008300440028002800280044008300
  10. GROB 9 9 000000008300C7006F00EF00EF00C7008300
  11. GROB 9 9 0000000083004500AA006D00AA0045008300
  12. GROB 8 8 00008081C7E38101
  13. GROB 8 8 00008081C7E38101
  14. GROB 5 5 0000A040A0
  15. }
  16.   CRS
  17. GROB 11 11 000000000000020002008F0002000200000000000000
  18.   CST { PLAY QUIT }
  19.   DSTY {
  20. GROB 25 17 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
  21. GROB 25 17 00EF000008BA30000E55F0000BAAA10085555300CAAAA60045555500AAAAAE0065555D00BAAAAA1055555510FAAAAE10C755F70008FE3000008300000082000000830000
  22. GROB 25 17 00EF000008FF30000EFFF0000FFFF1008FFFF300CFFFF700CFFFF700EFFFFF00EFFFFF00FFFFFF10FFFFFF10FFFFFF10CFFFF70008FF3000008300000083000000830000
  23. GROB 25 17 00000000000000000000000000000000000000000000000000C7000000FF10000CFF70000EFFF0000EFFF0000FFFF1000FFFF1008FFFF3008FFFF3000EFFF00000830000
  24. GROB 25 17 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000C7000000EF000000FF100008FF30000CFF70000CFF7000
  25. GROB 25 17 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000083000000C7000000EF0000
  26. }
  27.   EXGR {
  28. GROB 19 16 002000200020000000000000000000000000000000000000000000000000000000000000000000000000200020002000
  29. GROB 19 16 000000002000402010802800010400000000000000000000000000000000000000010400802800402010002000000000
  30. GROB 19 16 000000000000002000802800012400022200042100000000000000042100022200012400802800002000000000000000
  31. GROB 19 16 00000000000000000000200001240002220004210008F00008F000042100022200012400002000000000000000000000
  32. GROB 19 16 00000000000000000000000000200002220004710008F00008F000047100022200002000000000000000000000000000
  33. }
  34.   IMPRG
  35.     ½ WORK RCLF ì
  36. fgs
  37.       ½ -40 CF -55
  38. CF CLLCD
  39. "        BOMBER" 4
  40. DISP
  41.         DO 1 MENU
  42. CST
  43.           WHILE -1
  44. WAIT IP 10 - DUP2
  45. SWAP SIZE >
  46.           REPEAT
  47. DROP 340 .07 BEEP
  48.           END GET
  49. DUP ì l
  50.           ½ EVAL l
  51.           ╗
  52.         UNTIL { End
  53. EXIT QUIT } SWAP
  54. POS
  55.         END fgs
  56. STOF
  57.       ╗
  58.     ╗
  59.   INT
  60.     ½ 20 CF SNL 4 +
  61. 130 MOD 'SNL' STO
  62. BOMBS DUP SIZE RAND
  63. * CEIL GET 'BOMB'
  64. STO BS .1 - -2 MAX
  65. 'BS' STO (60,30)
  66. 'CL' STO
  67.       DO RAND 116 *
  68. 1 +
  69.       UNTIL DUP SNL
  70. - ABS 24 >
  71.       END 'BL' STO
  72. # 131d # 64d BLANK
  73. (0,14) BLDNG REPL
  74. SNL 61 RìC SUN GOR
  75. RAND BS * -1 MAX
  76. RAND .5 - SIGN *
  77. 'HS' STO
  78.     ╗
  79.   MAIN
  80.     ½
  81.       DO INT CL CRS
  82. REPL PICT { # 0d
  83. # 0d } ROT REPL {
  84. # 0d # 0d } PVIEW
  85. 63 7
  86.         FOR i
  87.           IF KEY
  88.           THEN {
  89. (0,3) (0,-3) (-3,0)
  90. (3,0) } { 25 35 34
  91. 36 } ROT POS
  92.             IFERR
  93. GET
  94.             THEN
  95. DROP2 880 .02 BEEP
  96.               IF BL
  97. i RìC DUP CL - ABS
  98. 5 <
  99.               THEN
  100. ZAP 0 'i' STO
  101.               ELSE
  102. DROP
  103.               END
  104.             ELSE
  105. 'CL' STO+ PICT CL
  106. CRS REPL
  107.             END
  108.           END PICT
  109. BL DUP HS + 120 MIN
  110. 0 MAX 'BL' STO i
  111. RìC BOMB REPL BS
  112.         STEP CLEAR
  113.         IF 20 FC?C
  114.         THEN XPLD 1
  115. WAIT
  116.         END
  117.       UNTIL ST NOT
  118.       END
  119.     ╗
  120.   PLAY
  121.     ½ # 131d # 64d
  122. PDIM 0 130 XRNG 0
  123. 64 YRNG -.8 'BS'
  124. STO 10 'SNL' STO
  125. 300 'ST' STO
  126.       IFERR MAIN
  127.       THEN
  128.       END CLEAR
  129. PICT (38,40)
  130. "GAME OVER" 3 ìGROB
  131. REPL 330 1 BEEP 2
  132. WAIT 3 FREEZE
  133.     ╗
  134.   QUIT
  135.     ½ WORK CLVAR
  136. BOMBERDIR UPDIR 2
  137. MENU
  138.     ╗
  139.   SUN
  140. GROB 15 15 1804280248018C90036001408080F0878080014003608C90480128021804
  141.   WORK
  142.     DIR
  143.     END
  144.   XPLD
  145.     ½ DSTY OBJì
  146. DROP PICT BL 16 RìC
  147. 1 6
  148.       START DUP2 5
  149. ROLL REPL
  150.       NEXT 1 5
  151.       START 30 .1
  152. BEEP 50 .05 BEEP 40
  153. .05 BEEP
  154.       NEXT ST RAND
  155. 40 * 40 + - 0 MAX
  156. IP "STRENGTH " OVER
  157. ìSTR + 2 ìGROB PICT
  158. (15,62) ROT REPL
  159. 'ST' STO
  160.     ╗
  161.   ZAP
  162.     ½ EXGR LISTì
  163. PICT OVER 3 + ROLL
  164. (-5,4) + 1 4 ROLL
  165.       START DUP2 5
  166. ROLL REPL
  167.       NEXT DROP2 75
  168. .01 BEEP 20 SF
  169.     ╗
  170. END
  171.